home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / hires pattern.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  397b  |  14 lines
  1. 10 POKE13*4096+13*256,PEEK(13*4096+13*256)AND254
  2. 20 POKE13*4096+24,8
  3. 30 POKE13*4096+17,PEEK(13*4096+17)OR32
  4. 40 FORI=0TO1024:POKEI+16*1024,1:NEXT
  5. 50 FORI=0TO8192:POKEI+24*1024,0:NEXT
  6. 60 :
  7. 70 W1=10:W2=100
  8. 80 FORS=0TO6.5STEP0.02:X=W1*SIN(S)+160:Y=W2*COS(S)+100
  9. 90 X=INT(X+.5):Y=INT(Y+.5):GOSUB2000
  10. 100 NEXT:W1=W1+5:W2=W2-5:GOTO80
  11. 2000 Y1=INT(Y/8):Y2=Y-Y1*8:X1=INT(X/8):X2=X-X1*8
  12. 2010 CH=(Y1*320)+(X1*8)+Y2:BI=2^(7-X2)
  13. 2020 POKE24*1024+CH,PEEK(24*1024+CH)ORBI:RETURN
  14.